home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / graphics / videoeasel / camrexx / camparityflip.rexx < prev    next >
OS/2 REXX Batch file  |  1999-04-19  |  349b  |  18 lines
  1. /* CAM-Parity-Flip 1.00 © THOR 1995 by an idea of Toffoli */
  2.  
  3. MakeAlgorithm:
  4.    PLANEALGORITHM neumann centers
  5. return
  6.  
  7. MakePlane:
  8.    if plane=0 then; do
  9.       newplane=center ^ north ^ south ^ west ^ east ^ center_
  10.       if newplane=0 then   SETPLANE off
  11.       else                 SETPLANE on
  12.    end; else; do
  13.       SETPLANE center
  14.    end
  15. return
  16.  
  17.  
  18.